home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / COMMADIO / GTPCPS44.LZH / PCP-DIAL.SCR < prev    next >
Text File  |  1988-12-30  |  2KB  |  93 lines
  1. ;  GTPCP\V4.4 - PCP-DIAL SCRIPT
  2. ;  (C) Perry Alexander - Dec 1988
  3. ;  GT Power Version 14.03
  4. ;  Script to Dial Selected PCP Node
  5. ;
  6. RMWIN
  7. SCREEN ON
  8.    MKWIN 10 5 70 16 "GTPCP Call Progress"
  9.    WRITELN
  10.    WRITE "  Dialing ................  "
  11.    WRITELN  %1
  12.    WRITE "  Baud Rate ..............  "
  13.    WRITE %2
  14.    WRITELN "00"
  15.    WRITE "  Number of Attempts .....  "
  16.    WRITELN %10
  17.    WRITE "  Call Results ...........  "
  18.    SCREEN OFF
  19. SEND "C D/"
  20. SEND %1
  21. SEND "/"
  22. SEND %2
  23. SEND ","
  24. FUNCTION KEY SHIFT 8
  25. WAIT FOR "PASSWORD ="
  26. FUNCTION KEY SHIFT 9
  27. GETLN V9
  28.    V10 ADD %10 1
  29.    SCREEN ON
  30.    WRITELN %9
  31.    WRITELN
  32.    WRITELN "         To return to Node Menu - Press [Ctl-K]   "
  33.    TWAIT 1000
  34. CASE %9 OF
  35.  ~ CONNECT
  36.    RMWIN
  37.    WRITELN
  38.    CLEAR
  39.    BEEP
  40.    SENDLN "I"
  41.    SENDLN "ATZ"
  42.    WAIT FOR "OK"
  43.    SENDLN
  44.    SENDLN "@"
  45.    WAIT FOR "@"
  46.    SENDLN "SET 5:1"
  47.    WAIT FOR "@"
  48.    SENDLN "RST? 5:1"
  49.    WAIT FOR "@"
  50.    SENDLN "CONT"
  51.    CLEAR
  52.    RMWIN
  53.    WRITE   "          You are now connected to PC Pursuit Node "
  54.    WRITELN %1
  55.    WRITELN
  56.    WRITE   "          Please wait while directory is changed to "
  57.    WRITELN %1
  58.    WRITELN
  59.    EXCH %1
  60.    CLEAR
  61.    WRITELN
  62.    WRITELN "          To See Dialing Directory . . . . . . . . Press Alt-D  "
  63.    WRITELN "          To Return to Node Menu while on line . . Press Alt-X  "
  64.    WRITELN
  65.    ONLINE
  66.    CLEAR
  67.    BREAK
  68.    SENDLN "@"
  69.    WAIT FOR "@"
  70.    SENDLN "D"
  71.    WAIT FOR "DISCONN"
  72.    WAIT FOR "@"
  73.    CHAIN "PCP-NODE.SCR"
  74.  ~ BUSY
  75.    WAIT FOR "@"
  76.    CYCLE 200
  77.    CHAIN "PCP-NODE.SCR"
  78.  ~ NOT
  79.    CLEAR
  80.    WAIT FOR "@"
  81.    CYCLE 200
  82.    CHAIN "PCP-NODE.SCR"
  83.  ?
  84.    RMWIN
  85.    WRITELN
  86.    BEEP
  87.    BEEP
  88.    WRITE "  TELENET response unrecognized :   "
  89.    CHAIN "PCP-NODE.SCR"
  90. ESAC
  91.    RMWIN
  92.    CHAIN "PCP-NODE.SCR"
  93.